home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / progsrc / jpeg5b / jpeg-5b / makefile.man < prev    next >
Makefile  |  1995-03-14  |  10KB  |  314 lines
  1. (HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  2.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  3.             IF WHICHVGA = 0 THEN STOP
  4.             DUMMY=RES640
  5.             SETVIEW 100, 100, 539, 379
  6.             FILLVIEW 10
  7.             WHILE INKEY$ = ""
  8.             WEND
  9.             VIDEOMODESET VMODE
  10.             END
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.                                                                          63
  28.  
  29.  
  30.  
  31.  
  32.  
  33.           FONTGETINFO
  34.  
  35.             PROTOTYPE
  36.  
  37.             SUB FONTGETINFO (Width%, Height%)
  38.  
  39.             INPUT
  40.  
  41.             no input parameters
  42.     WEND
  43.             MOUSEEXIT
  44.             VIDEOMODESET VMODE
  45.             END
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.                                                                          86
  87.  
  88.  
  89.  
  90.  
  91.  
  92.           MOUSECURSORDEFAULT
  93.  
  94.             PROTOTYPE
  95.  
  96.             SUB MOUSECURSORDEFAULT ()
  97.  
  98.             INPUT
  99.  
  100.             no input parameters
  101.  
  102.             OUTPUT
  103.  
  104.             no value returned
  105.  
  106.             USAGE
  107.  
  108.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  109.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  110. ⁿ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  111. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  112. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  113. $╤
  114. #@Ñú4,p&e÷ü¼_ÇQºÑ4òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±░┤ÖÇD└D0Å╡`   $ «îO@╧1
  115. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  116. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩░£▒Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  117.       end;
  118.     end;
  119.   end;
  120.   WaitToGo;
  121. end; { UserLineStylePlay }
  122.  
  123.  
  124. procedure SayGoodbye;
  125. { Say goodbye and then exit the program }
  126. var
  127.   ViewInfo : ViewPortType;
  128. begin
  129.   MainWindow('');
  130.   GetViewSettings(ViewInfo);
  131.   SetTextStyle(TriplexFont, HorizDir, 4);
  132.   SetTextJustify(CenterText, CenterText);
  133.   with ViewInfo do
  134.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  135.   StatusLine('Press any key to quit...');
  136.   repeat until KeyPressed;
  137. end; { SayGoodbye }
  138.  
  139.  
  140. PROCEDURE SelectMode;
  141. VAR
  142.     choice1,choice2     : CHAR;
  143.    xsize,ysize            : WORD;
  144. BEGIN
  145.     (* Let's select a mode *)
  146.     ClrScr;
  147.     WriteLn('VESADEMO:');
  148.     WriteLn('1. 256 colors');
  149.     WriteLn('2. 32768 colors');
  150.     WriteLn('3. 65536 colors');
  151.     WriteLn('4. 16777216 colors');
  152.     WriteLn('Q uit');
  153.     WriteLn;
  154.     Write('Your choice: ');
  155.     REPEAT
  156.         ReadLn(choice1);
  157.       IF choice1 <> '1' THEN BEGIN
  158.           WriteLn('Sorry !');
  159.          WriteLn('This demo wasn''t written for more as 256 colors !');
  160.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  161.          WriteLn('Switching to 256 colors.');
  162.          choice1 := '1';
  163.       END;
  164.     UNTIL choice1 IN ['1'..'4','q'];
  165.     IF choice1 = 'q' THEN Halt;
  166.  
  167.     WriteLn;
  168.     WriteLn;
  169.     WriteLn('a. 320x200');
  170.     WriteLn('b. 640x480');
  171.     WriteLn('c. 800x600');
  172.     WriteLn('d. 1024x768');
  173.     WriteLn('e. 1280x1024');
  174.     WriteLn('Q uit');
  175.     WriteLn;
  176.     Write('Your choice: ');
  177.     REPEAT
  178.         ReadLn(choice2);
  179.     UNTIL choice2 IN ['a'..'e','q'];
  180.     IF choice2 = 'q' THEN Halt;
  181.  
  182.     CASE choice2 OF
  183.         'a' : BEGIN
  184.             xsize := 320;
  185.             ysize := 200;
  186.         END;
  187.         'b' : BEGIN
  188.             xsize := 640;
  189.             ysize := 480;
  190.         END;
  191.         'c' : BEGIN
  192.             xsize := 800;
  193.             ysize := 600;
  194.         END;
  195.         'd' : BEGIN
  196.             xsize := 1024;
  197.             ysize := 768;
  198.         END;
  199.         'e' : BEGIN
  200.             xsize := 1280;
  201.             ysize := 1024;
  202.         END;
  203.     END;
  204.     CASE choice1 OF
  205.         '1' : mode := FindVesaMode(xsize,ysize,8);
  206.         '2' : mode := FindVesaMode(xsize,ysize,15);
  207.         '3' : mode := FindVesaMode(xsize,ysize,16);
  208.         '4' : mode := FindVesaMode(xsize,ysize,24);
  209.     END;
  210.     IF mode = 0 THEN BEGIN
  211.         WriteLn('No such mode could be found !');
  212.         WriteLn('Switching to to 320x200.');
  213.         ReadKey;
  214.         mode := V320x200x256;
  215.     END;
  216. END;
  217.  
  218. begin { program body }
  219.   SelectMode;
  220.   Initialize;
  221.   ReportStatus;
  222.  
  223. {  AspectRatioPlay; }
  224.   FillEllipsePlay;
  225.   SectorPlay;
  226.   WriteModePlay;
  227.  
  228.   ColorPlay;
  229.   { PalettePlay only intended to work on these drivers: }
  230.   if (GraphDriver = EGA) or
  231.       (GraphDriver = EGA64) or
  232.       (GraphDriver = VGA) then
  233.      PalettePlay;
  234.   PutPixelPlay;
  235. {  PutImagePlay; }
  236.   RandBarPlay;
  237.   BarPlay;
  238.   Bar3DPlay;
  239.   ArcPlay;
  240.   CirclePlay;
  241.   PiePlay;
  242.   LineToPlay;
  243.   LineRelPlay;
  244. {  LineStylePlay; }
  245. {  UserLineStylePlay; }
  246.   TextDump;
  247.   TextPlay;
  248.   CrtModePlay;
  249.   FillStylePlay;
  250.   FillPatternPlay;
  251.   PolyPlay;
  252.   SayGoodbye;
  253. {  CloseGraph; }
  254.   CloseVesa;
  255. end.
  256. ***************************************************
  257.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  258.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  259. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  260. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  261.     Color := RandColor;
  262.     SetColor(Color);
  263.     SetFillStyle(Random(CloseDotFill)+1, Color);
  264.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  265.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  266.   until KeyPressed;
  267.   WaitToGo;
  268. end; { RandBarPlay }
  269.  
  270. procedure ArcPlay;
  271. { Draw random arcs on the screen }
  272. var
  273.   MaxRadius : word;
  274.   EndAngle : word;
  275.   ArcInfo : ArcCoordsType;
  276. begin
  277.   MainWindow('Arc / GetArcCoords demonstration');
  278.   StatusLine('Esc aborts or press a key');
  279.   MaxRadius := MaxY div 10;
  280.   repeat
  281.     SetColor(RandColor);
  282.     EndAngle := Random(360);
  283.     SetLineStyle(SolidLn, 0, NormWidth);
  284.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  285.     GetArcCoords(ArcInfo);
  286.     with ArcInfo do
  287.     begin
  288.       Line(X, Y, XStart, YStart);
  289.       Line(X, Y, Xend, Yend);
  290.     end;
  291.   until KeyPressed;
  292.   WaitToGo;
  293. end; { ArcPlay }
  294.  
  295. procedure PutPixelPlay;
  296. { Demonstrate the PutPixel and GetPixel commands }
  297. const
  298.   Seed   = 1962; { A seed for the random number generator }
  299.   NumPts = 2000; { The number of pixels plotted }
  300.   Esc    = #27;
  301. var
  302.   I : word;
  303.   X, Y, Color : word;
  304.   XMax, YMax  : integer;
  305.   ViewInfo    : ViewPortType;
  306. begin
  307.   MainWindow('PutPixel / GetPixel demonstration');
  308.   StatusLine('Esc aborts or press a key...');
  309.  
  310.   GetViewSettings(ViewInfo);
  311.   with ViewInfo do
  312.   begin
  313.     XMax := (x2-x1-1);
  314.